home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
19
/
madtrb40.zip
/
BEEP.INC
< prev
next >
Wrap
Text File
|
1986-01-21
|
119b
|
8 lines
Procedure Beep(Num:integer);
VAR
I : integer;
Begin
for I := 1 to Num do
write(chr(7));
end; {beep}